#!/usr/bin/perl -w #For syntax highlighting
package clreqd_modules;

use strict;

sub fsobj_type {
my %ARGS=@_;

	my $fsobj=$ARGS{FSOBJ};
	if(! -e $fsobj) {
		return "OK NOT_EXIST";
	}
	return "OK CHAR" if -c $fsobj;
	return "OK BLOCK" if -b $fsobj;
	return "OK FILE" if -f $fsobj;
	return "OK DIRECTORY" if -d $fsobj;
	return "OK FIFO" if -p $fsobj;
	return "OK SOCKET" if -S $fsobj;
	return "OK LINK";
}

1;
